home *** CD-ROM | disk | FTP | other *** search
/ Mess With 10 / Mess With 10.iso / mac / SubMenu3.DIR / 00206_Script_206 < prev    next >
Text File  |  1996-12-18  |  351b  |  12 lines
  1. --on ReadPict _photoNum
  2. --  put the pathName & "IDITTE:LITTLE:PHOTO" & _groupNum & ":P" & _pageNum & ".PIC" into fName
  3. --  put FileIO(mNew, "read", fName) into myP
  4. --  if objectP(myP) then
  5. --    set the picture of cast _photoNum = myP(mReadPICT)
  6. --    myP(mDispose)
  7. --    return TRUE
  8. --  else
  9. --    beep
  10. --    return FALSE
  11. --  end if
  12. --end